40 LOCATE 25,1: PRINT " Press any key to continue";
50 K$= INKEY$: IF K$= "" THEN 50 ELSE CLS
51 '** OPEN FILES FOR TRANSFER
52 INPUT "Enter Disk Drive Letter where Gen-On-Disp PERSFILE and XFER.GED file will reside. May be same as Transfer Program or another drive ", DR$: IF LEN(DR$)= 1 THEN DR$=DR$+":"
70 A$= "If data concerning the submitter is to be entered,":B$= "type in his name below and provide remaining information,":C$= "else press the ENTER Key to skip submitters data"
310 FIELD 1, 5 AS F1$, 20 AS F2$, 30 AS F3$, 2 AS F4$, 5 AS F5$, 5 AS F6$, 5 AS F7$, 11 AS F8$, 18 AS F9$, 16 AS F10$, 16 AS F11$, 11 AS F12$, 18 AS F13$, 16 AS F14$, 16 AS F15$, 11 AS F16$, 18 AS F17$, 16 AS F18$, 16 AS F19$
320 LOCATE 10,1: PRINT SPACE$(79): LOCATE 10,1
330 INPUT "Enter highest currently active Record No.", REC.NO
340 IF REC.NO=0 THEN '-** GOTO END OF PROGRAM **-
350 IF REC.NO>400 THEN LOCATE 12,1: PRINT SPACE$(79): LOCATE 12,1: PRINT "Numbermust be between 1 and 400--Re-enter No.": GOTO 330 ELSE LOCATE 12,1:PRINT SPACE$(79)
360 CLS:FOR I=1 TO REC.NO: GET #1, I
365 LOCATE 10,15: PRINT "PROCESSING RECORD NO. "; I